CDUTIL 13/CDUTIL #13 Julio 1995.iso/windows/amipro3/macros.cmz/CROSSREF.SMM

INI File | 1992-11-18 | 6.5 KB | 498 lines

[ver]
    4
[sty]
    _macro.sty
[files]
[charset]
    82
    ANSI (Windows, IBM CP 1252)
[revisions]
    0
[prn]
    PostScript Printer
[port]
    LPT1:
[lang]
    1
[desc]
    Genera referencias cruzadas entre los archivos de un documento maestro formado por menos de ocho archivos.
    Lotus Word Processing Division
    Advanced
    FileOpen, MasterDocument
    noautorun
    714788048
    38
    672617318
    409
    2
    325
    2164
    5
    7






    0
[fopts]
    0
    1
    0
    0
[lnopts]
    2
    Body Text
    1
[docopts]
    5
    2
[GramStyle]

[ParaNum]
    1
[tag]
    Est<\a>ndar
    5
    [fnt]
        Tms Rmn
        240
        0
        49152
    [algn]
        1
        1
        0
        0
        0
    [spc]
        17
        0
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        24
        1
        2
        ,
        .
        Pts
    Est<\a>ndar
    0
    0
[l1]
    0
[pg]
    2
    49 0 19 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
    91 0 12 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
[edoc]
<+@><:#279,9025>' Xref - cross reference between files in a master document. Because the field

<+@><:#279,9025>'"Pageref" can only work with bookmarks in  the current file, when you need the page

<+@><:#279,9025>'number of  a bookmark in another file, you can insert  the powerfield

<+@><:#279,9025>'getglobalvar$("BookmarkName")  after running this macro.  (Insert the name of  your

<+@><:#279,9025> 'bookmark in place of BookmarkName.)

<+@><:#279,9025>'

<+@><:#279,9025>'This macro will run through all files in the master, and for each bookmark it will

<+@><:#279,9025> 'determine the actual page number, then create a global variable by that same name,

<+@><:#279,9025> 'and assign the  page number to it. Also the macro updates powerfields previously

<+@><:#279,9025> 'inserted

<:#279,9025>

<:#279,9025>'This version is limited to 9 files

<:#279,9025>

<:#279,9025>Declare DebugArray(Array)

<:#279,9025>define IsOKToRun(menuname)    GetInfo(217, 24, %1);

<:#279,9025>

@Function@<:#293,9025>FUNCTION Xref()

<:#279,9025>IF IsNewWave()

<:#279,9025>    Message("Macro no disponible si se ejecuta en HP NewWave.")

<:#279,9025>    Exit Function

<:#279,9025>ENDIF

@Subhead@<:#279,9025>result=IsOKToRun(SaveAs)

@Subhead@<:#279,9025>if result !=1 exit function

@Subhead@<:#279,9025>endif

<:#279,9025>defstr mascount;

<:#279,9025>totpages = 0

<:#279,9025>

<:#279,9025>if (0 = Assign(&mascount, GetMasterFilesCount()))

<:#279,9025>    message("No es un documento maestro")

<:#279,9025>    return -1;

<:#279,9025>else

<:#279,9025>dim    masfiles(mascount)

<:#279,9025>GetMasterFiles(&masfiles)

<:#279,9025>DebugArray(&MasFiles)

<:#279,9025>mascount = arraysize(&masfiles)

<:#279,9025>for i = 1 to mascount    ' Generate left the last one up

<:#279,9025>ifopen = 0

<:#279,9025>    Count = GetOpenFileCount()

<:#279,9025>    IF Count <;> 0

<:#279,9025>    DIM Filess(Count)

<:#279,9025>    GetOpenFileNames(&Filess)

<:#279,9025>    FOR II = 1 to Count

<:#279,9025>    f = filess(II)

<:#279,9025>    if  f =  ucase$(masfiles(i)) and ifopen = 0 then

<:#279,9025>        ifopen = 1

<:#279,9025>    endif

<:#279,9025>    NEXT

<:#279,9025>    endif

<:#279,9025>    if ifopen = 0 then

<:#279,9025>        FileOpen(masfiles(i), 1, "")

<:#279,9025>    else

<:#279,9025>    file = masfiles(i)

<:#279,9025>    selectwindow(file)

<:#279,9025>    endif

<:#279,9025>    DarkMode(1)

<:#279,9025>    type("<[>ctrlend]")    ' Force load to finish

<:#279,9025>    type("<[>ctrlhome]")    ' Back to the top for looks

<:#279,9025>    DarkMode(0)

<:#279,9025>    call CreateGlobals(totpages)

<:#279,9025>    totpages = totpages + evalfield("numpages")

<:#279,9025>    FieldUpdateAll()

<:#279,9025>next

<:#279,9025>endif

<:#279,9025>END FUNCTION

@Function@<:#293,9025>FUNCTION CreateGlobals(totpages)

<:#279,9025>defstr bookcnt

<:#279,9025>bookcnt = getbookmarkcount()

<:#279,9025>if  bookcnt = 0

<:#279,9025>    return 0;    ' No bookmarks, fast exit here

<:#279,9025>else

<:#279,9025>dim booknames(bookcnt)

<:#279,9025>GetBookMarkNames(&booknames)

<:#279,9025>for i = 1 to bookcnt

<:#279,9025>    ' get the GetBookMarkPage returns the page number of the

<:#279,9025>    ' bookmark relative to this file, use PhysicalToLogical

<:#279,9025>    ' to the the logical page.  Then create a global var

<:#279,9025>    ' using the bookmark name, then assign that page number.

<:#279,9025>    page = totpages + getbookmarkpage(booknames(i))

<:#279,9025>    AllocGlobalVar(booknames(i), 1)

<:#279,9025>    SetGlobalVar(booknames(i), page)

<:#279,9025>next

<:#279,9025>endif

<:#279,9025>END FUNCTION

<:#279,9025>

@Function@<:#293,9025>Function DebugArray(MasFiles)

<:#279,9025>Count = ArraySize(&MasFiles)

<:#279,9025>For t = 1 to count

<:#279,9025>    Info = *MasFiles(T)

<:#279,9025>    Message("{T} = {Info}")

<:#279,9025>Next

<:#279,9025>End Function

>

[Embedded]
00005060
>
[macsum] 3
Xref 0 0 12 16
CreateGlobals 968 1 5 64
DebugArray 1287 1 4 84
[macse]
14 Xref
0 1317
13
11 00000102
0 3 "Macro no disponible si se ejecuta en HP NewWave."
6 0
15
9
0 1313 217 24 104
13
8 1
6 1
5 1
18 1
11 00000171
6 0
15
9
5 0
8 3
5 0
0 1047
13
0 805 &2 [X]
13
18 0
11 00000295
0 3 "No es un documento maestro"
5 -1
15
9
10 00000956
6 2
21 4 [X]
0 1048 &4
16 DebugArray &4
0 1046 &4
13
8 2
5 1
8 5
6 2
6 5
18 2
12 00000444
10 00000956
5 1
6 5
3 0
8 5
10 00000369
5 0
8 6
0 1050
13
8 7
6 7
5 0
18 3
11 00000722
6 7
21 8 [X]
0 1051 &8
5 1
8 9
6 7
6 9
18 2
12 00000611
10 00000722
5 1
6 9
3 0
8 9
10 00000536
6 9
22 8
8 10
6 10
6 5
22 4
0 18 [X]
13
18 0
6 6
5 0
18 0
1 1
11 00000709
5 1
8 6
10 00000578
6 6
5 0
18 0
11 00000793
6 5
22 4
2 102 1 [X] 1 ""
10 00000824
6 5
22 4
8 11
0 796 "{11}"
0 292 1
0 6 "[16419]"
0 6 "[16420]"
0 292 0
16 CreateGlobals "{3}"
6 3
0 1289 "numpages"
13
3 0
8 3
2 267 1
10 00000411
6 0
15
9
14 CreateGlobals
0 1039
13
8 2
6 2
5 0
18 0
11 00000089
5 0
15
9
10 00000307
6 2
21 3 [X]
0 1040 &3
5 1
8 4
6 2
6 4
18 2
12 00000200
10 00000307
5 1
6 4
3 0
8 4
10 00000125
6 0
6 4
22 3
0 1049 [X]
13
3 0
8 5
6 4
22 3
0 271 [X] 1
6 4
22 3
0 264 [X] "{5}"
10 00000167
6 1
15
9
14 DebugArray
0 1046 &0
13
8 2
5 1
8 3
6 2
6 3
18 2
12 00000120
10 00000166
5 1
6 3
3 0
8 3
10 00000045
6 3
22 0
8 4
0 3 "{3} = {4}"
10 00000087
6 1
15
9
00005085